﻿Public Class frmDangKy 

    Private Sub frmDangKy_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LinkLabel1.Text = "CLick vào đây  để đăng ký trực tuyến"
        LinkLabel1.Links.Add(6, 8, "www.QuanLyNhaHang.com/DangKy")
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start(e.Link.LinkData.ToString())
    End Sub

    Public dto As New DangKyBanQuyenDTO()
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dto = DangKyBanQuyenBUS.GetDangKyBanQuyen(txtMa1.Text)
        If dto.Ma1 = String.Empty Then
            MessageBox.Show("Mã Đăng Ký Đã Được Sử Dụng Hoặc Không Tồn Tại")
            Return
        End If
        Dim _m2 As String = dto.Ma2
        Dim _m3 As String = dto.Ma3
        Dim _m4 As String = dto.Ma4
        Dim _e2 As String = txtMa2.Text
        Dim _e3 As String = txtMa2.Text
        Dim _e4 As String = txtMa2.Text
        If (dto.Ma2 <> txtMa2.Text) And (dto.Ma3 <> txtMa3.Text) And (dto.Ma4 <> txtMa4.Text) Then
            MessageBox.Show("Mã Đăng Ký Đã Được Sử Dụng Hoặc Không Tồn Tại")
            Return
        Else
            MessageBox.Show(" Bạn Đã Đăng Ký Thành Công ! ")
            Close()

        End If

    End Sub
End Class